inherited fmSkladTovarUnique: TfmSkladTovarUnique
  Left = 469
  Top = 180
  Width = 893
  Height = 410
  Caption = #1059#1085#1080#1082#1072#1083#1100#1085#1099#1077' '#1090#1086#1074#1072#1088#1099
  Constraints.MinHeight = 410
  Constraints.MinWidth = 893
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 345
    Width = 877
  end
  inherited Panel1: TPanel
    Width = 877
    inherited BitBtn1: TBitBtn
      Left = 691
    end
    inherited BitBtn2: TBitBtn
      Left = 779
    end
  end
  object dxBarDockControl1: TdxBarDockControl [2]
    Left = 0
    Top = 45
    Width = 877
    Height = 26
    Align = dalTop
    BarManager = dxBarManager1
  end
  object dbgSkladtTovarUnique: TcxGrid [3]
    Left = 0
    Top = 71
    Width = 877
    Height = 274
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    LookAndFeel.Kind = lfStandard
    LookAndFeel.SkinName = 'Office2007Silver'
    object tvSkladtTovarUnique: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '0'
          Kind = skCount
          FieldName = 'TUID'
          Column = tvSkladtTovarUniqueTUSERNUM
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 3
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvSkladtTovarUniqueTUSERNUM: TcxGridDBColumn
        Caption = #1057#1077#1088'. '#1085#1086#1084#1077#1088
        DataBinding.FieldName = 'TUSERNUM'
        Width = 142
      end
      object tvSkladtTovarUniqueTUUSERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088
        DataBinding.FieldName = 'TUUSERENTER'
        Options.Editing = False
        Width = 204
      end
      object tvSkladtTovarUniqueTUTIMENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
        DataBinding.FieldName = 'TUTIMENTER'
        Options.Editing = False
        Width = 192
      end
      object tvSkladtTovarUniqueTUUSEREDIT: TcxGridDBColumn
        Caption = #1056#1077#1076#1072#1082#1090#1086#1088
        DataBinding.FieldName = 'TUUSEREDIT'
        Options.Editing = False
        Width = 176
      end
      object tvSkladtTovarUniqueTUTIMEEDIT: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'.'
        DataBinding.FieldName = 'TUTIMEEDIT'
        Options.Editing = False
        Width = 149
      end
    end
    object dbgSkladtTovarUniqueLevel1: TcxGridLevel
      GridView = tvSkladtTovarUnique
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qTU
    Top = 16
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.SkinName = 'Office2007Silver'
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    ShowHint = False
    UseF10ForMenu = False
    UseSystemFont = True
    Left = 448
    Top = 15
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 551
      FloatTop = 183
      FloatClientWidth = 92
      FloatClientHeight = 22
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbadd'
        end
        item
          Visible = True
          ItemName = 'bbedit'
        end
        item
          Visible = True
          ItemName = 'bbdel'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 41
    end
    object dxBarButton3: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
    object bbnewjl: TdxBarButton
      Caption = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Category = 0
      Hint = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Visible = ivNever
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bbadd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 57
      OnClick = bbaddClick
    end
    object bbedit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivNever
      ImageIndex = 54
    end
    object bbdel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 10
      OnClick = bbdelClick
    end
    object cbShowDoc: TcxBarEditItem
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Category = 0
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Visible = ivAlways
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.Alignment = taLeftJustify
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      InternalEditValue = 1
    end
    object dxBarButton5: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 17
    end
  end
  object qTU: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qTUAfterInsert
    BeforeOpen = qTUBeforeOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT TU.*'
      'FROM TOVAR_UNIQUE TU'
      'WHERE TU.SDID = :SDID'
      'AND TU.TUISVULGARIS IS NULL')
    UpdateObject = quTU
    GeneratorField.Field = 'TUID'
    GeneratorField.Generator = 'GEN_TOVAR_UNIQUE_ID'
    Left = 296
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDID'
        ParamType = ptUnknown
      end>
    object qTUTUID: TIntegerField
      FieldName = 'TUID'
      Origin = '"TOVAR_UNIQUE"."TUID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qTUSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"TOVAR_UNIQUE"."SDID"'
    end
    object qTUTUISVULGARIS: TIntegerField
      FieldName = 'TUISVULGARIS'
      Origin = '"TOVAR_UNIQUE"."TUISVULGARIS"'
    end
    object qTUTUUSERENTER: TIBStringField
      FieldName = 'TUUSERENTER'
      Origin = '"TOVAR_UNIQUE"."TUUSERENTER"'
      Size = 40
    end
    object qTUTUTIMENTER: TDateTimeField
      FieldName = 'TUTIMENTER'
      Origin = '"TOVAR_UNIQUE"."TUTIMENTER"'
    end
    object qTUTUUSEREDIT: TIBStringField
      FieldName = 'TUUSEREDIT'
      Origin = '"TOVAR_UNIQUE"."TUUSEREDIT"'
      Size = 40
    end
    object qTUTUTIMEEDIT: TDateTimeField
      FieldName = 'TUTIMEEDIT'
      Origin = '"TOVAR_UNIQUE"."TUTIMEEDIT"'
    end
    object qTUTUSERNUM: TIBStringField
      FieldName = 'TUSERNUM'
      Origin = '"TOVAR_UNIQUE"."TUSERNUM"'
      Size = 255
    end
  end
  object quTU: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  TUID,'
      '  SDID,'
      '  TUISVULGARIS,'
      '  TUSERNUM,'
      '  TUUSERENTER,'
      '  TUTIMENTER,'
      '  TUUSEREDIT,'
      '  TUTIMEEDIT'
      'from TOVAR_UNIQUE '
      'where'
      '  TUID = :TUID')
    ModifySQL.Strings = (
      'update TOVAR_UNIQUE'
      'set'
      '  SDID = :SDID,'
      '  TUID = :TUID,'
      '  TUISVULGARIS = :TUISVULGARIS,'
      '  TUSERNUM = :TUSERNUM'
      'where'
      '  TUID = :OLD_TUID')
    InsertSQL.Strings = (
      'insert into TOVAR_UNIQUE'
      '  (SDID, TUID, TUISVULGARIS, TUSERNUM)'
      'values'
      '  (:SDID, :TUID, :TUISVULGARIS, :TUSERNUM)')
    DeleteSQL.Strings = (
      'delete from TOVAR_UNIQUE'
      'where'
      '  TUID = :OLD_TUID')
    Left = 336
    Top = 16
  end
end
